input <- scan("~/tempData.dat", list(0))
idleLevels <- input[[1]]

source("~/eaa-labwork/Wk5_Lab_a_plotGraphOverTime.r")
x11()
plotGraphOverTime(idleLevels, "~/eaa-labwork/images/Wk5_a+b_combined_graph.png")
